|
800
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[HTMLPicture,"p1"] := "c:\exontrol\images\card.png"
oDCOCX_Exontrol1:[HTMLPicture,"p2"] := "c:\exontrol\images\sun.png"
oDCOCX_Exontrol1:AutoDrag := exAutoDragCopySnapShot
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
oDCOCX_Exontrol1:HasLines := exThinLine
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:DefaultItemHeight := 26
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:ShowNonworkingDates := false
var_Chart:FirstVisibleDate := SToD("20001229")
var_Chart:[PaneWidth,false] := 96
var_Chart:LevelCount := 2
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Color := 0x1000000
var_Bar:Height := 18
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("<img>p1:32</img>Group 1")
var_Items:[CellCaptionFormat,h,0] := exHTML
var_Items:[ItemDivider,h] := 0
var_Items:[ItemBold,h] := true
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "L1"
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "L2"
h := var_Items:AddItem("<img>p2:32</img>Group 2")
var_Items:[CellCaptionFormat,h,0] := exHTML
var_Items:[ItemBold,h] := true
var_Items:[ItemDivider,h] := 0
h1 := var_Items:InsertItem(h,nil,"Task")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
799
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image
local var_Items as IItems
local h,var_HTMLPicture as USUAL
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"p1"] := "c:\exontrol\images\card.png"
oDCOCX_Exontrol1:[HTMLPicture,"p2"] := "c:\exontrol\images\sun.png"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_HTMLPicture := oDCOCX_Exontrol1:[HTMLPicture,"aka1"]
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:DefaultItemHeight := 48
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineColor := RGB(240,240,240)
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ContinueColumnScroll := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Columns:[Item,0]:[Def,exCellCaptionFormat] := 1
oDCOCX_Exontrol1:Columns:[Item,0]:FormatColumn := "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
oDCOCX_Exontrol1:Columns:[Item,0]:Width := 112
oDCOCX_Exontrol1:Columns:[Item,1]:[Def,exCellHasCheckBox] := 1
oDCOCX_Exontrol1:Columns:[Item,2]:LevelKey := "1"
oDCOCX_Exontrol1:Columns:[Item,3]:LevelKey := "1"
oDCOCX_Exontrol1:Columns:[Item,4]:LevelKey := "1"
oDCOCX_Exontrol1:AutoDrag := exAutoDragCopyImage
oDCOCX_Exontrol1:SingleSel := false
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:[ItemByIndex,1]
var_Items:[SelectItem,h] := true
h := var_Items:[ItemByIndex,2]
var_Items:[SelectItem,h] := true
h := var_Items:[ItemByIndex,3]
var_Items:[SelectItem,h] := true
var_Items:[LockedItemCount,BottomAlignment] := 1
h := var_Items:[LockedItem,BottomAlignment,0]
var_Items:[CellCaption,h,1] := "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ..."
var_Items:[CellSingleLine,h,1] := exCaptionWordWrap
var_Items:[CellCaptionFormat,h,1] := exHTML
var_Items:[CellHAlignment,h,1] := CenterAlignment
var_Items:[ItemDivider,h] := 1
var_Items:[ItemDividerLineAlignment,h] := DividerTop
oDCOCX_Exontrol1:EndUpdate()
|
|
798
|
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text
local var_Items as IItems
local h as USUAL
local rs as _Recordset
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:ContinueColumnScroll := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:Columns:[Item,2]:LevelKey := "1"
oDCOCX_Exontrol1:Columns:[Item,3]:LevelKey := "1"
oDCOCX_Exontrol1:Columns:[Item,4]:LevelKey := "1"
oDCOCX_Exontrol1:AutoDrag := exAutoDragCopyText
oDCOCX_Exontrol1:SingleSel := false
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:[ItemByIndex,1]
var_Items:[SelectItem,h] := true
h := var_Items:[ItemByIndex,3]
var_Items:[SelectItem,h] := true
h := var_Items:[ItemByIndex,4]
var_Items:[SelectItem,h] := true
h := var_Items:[ItemByIndex,5]
var_Items:[SelectItem,h] := true
var_Items:[LockedItemCount,BottomAlignment] := 1
h := var_Items:[LockedItem,BottomAlignment,0]
var_Items:[CellCaption,h,0] := "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ..."
var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
var_Items:[CellCaptionFormat,h,0] := exHTML
var_Items:[CellHAlignment,h,0] := CenterAlignment
var_Items:[ItemDivider,h] := 0
var_Items:[ItemDividerLineAlignment,h] := DividerTop
oDCOCX_Exontrol1:EndUpdate()
|
|
797
|
Is it possible to change the indentation during the drag and drop
local var_Chart as IChart
local var_Items as IItems
local h,h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:AutoDrag := exAutoDragPositionAny
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
oDCOCX_Exontrol1:HasLines := exSolidLine
oDCOCX_Exontrol1:HasButtons := exWPlus
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:SelBackMode := exTransparent
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:ShowNonworkingDates := false
var_Chart:FirstVisibleDate := SToD("20001229")
var_Chart:[PaneWidth,false] := 128
var_Chart:LevelCount := 2
var_Chart:Bars:[Item,"Task"]:Color := 0x1000000
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Group 1")
var_Items:[ItemBold,h] := true
var_Items:[ItemDivider,h] := 0
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:InsertItem(h1,nil,"Task 2")
var_Items:AddBar(h2,"Task",SToD("20010115"),SToD("20010117"),"K4",nil)
h2 := var_Items:InsertItem(h1,nil,"Task 3")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "L1"
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "L2"
var_Items:[ExpandItem,h] := true
var_Items:[ExpandItem,h1] := true
h := var_Items:AddItem("Group 2")
var_Items:[ItemBold,h] := true
var_Items:[ItemDivider,h] := 0
var_Items:[LockedItemCount,BottomAlignment] := 1
h := var_Items:[LockedItem,BottomAlignment,0]
var_Items:[CellCaption,h,0] := "Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the indentation."
var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
var_Items:[CellCaptionFormat,h,0] := exHTML
oDCOCX_Exontrol1:EndUpdate()
|
|
796
|
Is it possible to allow moving an item to another, but keeping its indentation
local var_Chart as IChart
local var_Items as IItems
local h,h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:AutoDrag := exAutoDragPositionKeepIndent
oDCOCX_Exontrol1:LinesAtRoot := exNoLinesAtRoot
oDCOCX_Exontrol1:HasLines := exThinLine
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:ShowNonworkingDates := false
var_Chart:FirstVisibleDate := SToD("20001229")
var_Chart:[PaneWidth,false] := 96
var_Chart:LevelCount := 2
var_Chart:Bars:[Item,"Task"]:Color := 0x1000000
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Group 1")
var_Items:[ItemDivider,h] := 0
var_Items:[ItemBold,h] := true
h1 := var_Items:InsertItem(h,nil,"Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:InsertItem(h,nil,"Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "L1"
h3 := var_Items:InsertItem(h,nil,"Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "L2"
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Group 2")
var_Items:[ItemBold,h] := true
var_Items:[ItemDivider,h] := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
795
|
How can I change the row's position to another, by drag and drop. Is it possible
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:AutoDrag := exAutoDragPosition
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:ShowNonworkingDates := false
var_Chart:FirstVisibleDate := SToD("20001229")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:Bars:[Item,"Task"]:Color := 0x1000000
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "L1"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "L2"
oDCOCX_Exontrol1:EndUpdate()
|
|
794
|
Have seen the RenderType, but do not know what kind of values should I use
local var_Chart as IChart
local var_Items as IItems
local h1,h2,h3 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:BackColorHeader := 0x1000000
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:BackColorLevelHeader := 0x1000000
var_Chart:FirstVisibleDate := SToD("20001229")
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:Bars:[Item,"Task"]:Color := 0x1000000
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "L1"
h3 := var_Items:AddItem("Task 3")
var_Items:AddBar(h3,"Task",SToD("20010108"),SToD("20010110"),"K3",nil)
var_Items:AddLink("L2",h2,"K2",h3,"K3")
var_Items:[Link,"L2",exLinkText] := "L2"
oDCOCX_Exontrol1:VisualAppearance:RenderType := -2147483393
oDCOCX_Exontrol1:EndUpdate()
|
|
793
|
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
local var_Column,var_Column1 as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Item")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:Filter := "Child 1"
var_Column:FilterType := exFilter
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column1:DisplayFilterButton := true
var_Column1:DisplayFilterPattern := false
var_Column1:DisplayFilterDate := true
var_Column1:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exNoItems
var_Column1:Filter := AsString(SToD("20101228"))
var_Column1:FilterType := exDate
oDCOCX_Exontrol1:FilterCriteria := "%0 or %1"
oDCOCX_Exontrol1:[Description,exFilterBarOr] := "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
oDCOCX_Exontrol1:[Description,exFilterBarAnd] := "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1"),1] := SToD("20101227")
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 2"),1] := SToD("20101228")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1"),1] := SToD("20101229")
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 2"),1] := SToD("20101230")
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
792
|
Is it possible exclude the dates being selected in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox | exNoItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:EndUpdate()
|
|
791
|
How can I display a calendar control inside the drop down filter window
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Date")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exShowCheckBox | exNoItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:EndUpdate()
|
|
790
|
Is it possible to include the dates as checkb-boxes in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Dates")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exShowCheckBox
var_Column:Filter := "to 12/27/2010"
var_Column:FilterType := exDate
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
789
|
How can I filter items for dates before a specified date
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Dates")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exNoItems
var_Column:Filter := "to 12/27/2010"
var_Column:FilterType := exDate
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
788
|
Is it possible to filter dates
local var_Column as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Dates")}
var_Column:SortType := SortDate
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:DisplayFilterDate := true
var_Column:FilterList := exShowFocusItem | exNoItems
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(SToD("20101227"))
var_Items:AddItem(SToD("20101228"))
var_Items:AddItem(SToD("20101229"))
var_Items:AddItem(SToD("20101230"))
var_Items:AddItem(SToD("20101231"))
oDCOCX_Exontrol1:EndUpdate()
|
|
787
|
Is it possible to change the Exclude field name to something different, in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:[Description,exFilterBarExclude] := "Leaving out"
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
oDCOCX_Exontrol1:EndUpdate()
|
|
786
|
How can I display the Exclude field in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowExclude | exShowFocusItem | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
oDCOCX_Exontrol1:EndUpdate()
|
|
785
|
Is it possible to show and ensure the focused item from the control, in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowFocusItem | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:[SelectItem,var_Items:InsertItem(h,nil,"Child 2")] := true
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
784
|
Is it possible to show only blanks items with no listed items from the control
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowBlanks | exNoItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
783
|
How can I include the blanks items in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowBlanks | exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
782
|
How can I select multiple items in the drop down filter window, using check-boxes
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exShowCheckBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
781
|
Is it possible to allow a single item being selected in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := false
var_Column:FilterList := exSingleSel
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
780
|
How can I display no (All) item in the drop down filter window
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:[Description,exFilterBarAll] := ""
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:FilterList := exNoItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
779
|
Is it possible to display no items in the drop down filter window, so only the pattern is visible
local var_Column as IColumn
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Items")}
var_Column:DisplayFilterButton := true
var_Column:DisplayFilterPattern := true
var_Column:FilterList := exNoItems
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:EndUpdate()
|
|
778
|
How can I show the child items with no identation
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesOutside
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:HasLines := exThinLine
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
|
|
777
|
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesAtRoot
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
776
|
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesOutside
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
|
|
775
|
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesInsideLeaf
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
774
|
Is there other ways of showing the hierarchy lines (exGroupLinesInside)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLinesInside
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
773
|
Is there other ways of showing the hierarchy lines (exGroupLines)
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exGroupLines
oDCOCX_Exontrol1:Indent := 12
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(var_Items:InsertItem(h,nil,"Child 2"),nil,"SubChild 2")
var_Items:InsertItem(h,nil,"Child 3")
var_Items:[ExpandItem,h] := true
|
|
772
|
Is it possible background color displayed when the mouse passes over an item
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
oDCOCX_Exontrol1:HotBackColor := RGB(0,0,128)
oDCOCX_Exontrol1:HotForeColor := RGB(255,255,255)
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item A")
var_Items:AddItem("Item B")
var_Items:AddItem("Item C")
oDCOCX_Exontrol1:EndUpdate()
|
|
771
|
How can I simulate displaying groups
local var_Columns as IColumns
local var_Items as IItems
local h,h1 as USUAL
oDCOCX_Exontrol1:HasLines := exNoLine
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Name")
var_Columns:Add("A")
var_Columns:Add("B")
var_Columns:Add("C")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Group 1")
var_Items:[CellHAlignment,h,0] := CenterAlignment
var_Items:[ItemDivider,h] := 0
var_Items:[ItemDividerLineAlignment,h] := DividerBoth
var_Items:[ItemHeight,h] := 24
var_Items:[SortableItem,h] := false
h1 := var_Items:InsertItem(h,nil,"Child 1")
var_Items:[CellCaption,h1,1] := 1
var_Items:[CellCaption,h1,2] := 2
var_Items:[CellCaption,h1,3] := 3
h1 := var_Items:InsertItem(h,nil,"Child 2")
var_Items:[CellCaption,h1,1] := 4
var_Items:[CellCaption,h1,2] := 5
var_Items:[CellCaption,h1,3] := 6
var_Items:[ExpandItem,h] := true
h := var_Items:AddItem("Group 2")
var_Items:[CellHAlignment,h,0] := CenterAlignment
var_Items:[ItemDivider,h] := 0
var_Items:[ItemDividerLineAlignment,h] := DividerBoth
var_Items:[ItemHeight,h] := 24
var_Items:[SortableItem,h] := false
h1 := var_Items:InsertItem(h,nil,"Child 1")
var_Items:[CellCaption,h1,1] := 1
var_Items:[CellCaption,h1,2] := 2
var_Items:[CellCaption,h1,3] := 3
h1 := var_Items:InsertItem(h,nil,"Child 2")
var_Items:[CellCaption,h1,1] := 4
var_Items:[CellCaption,h1,2] := 5
var_Items:[CellCaption,h1,3] := 6
var_Items:[ExpandItem,h] := true
|
|
770
|
Is it possible to change the height for all items at once
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root 1")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
h := var_Items:AddItem("Root 2")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,0] := true
oDCOCX_Exontrol1:EndUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 12
oDCOCX_Exontrol1:Items:[ItemHeight,0] := 12
|
|
769
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:Columns:Add("Value")
oDCOCX_Exontrol1:Columns:Add("FormatCell")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem(1)
var_Items:[CellCaption,h,1] := 12
var_Items:[FormatCell,h,1] := "currency(value)"
h := var_Items:AddItem(SToD("20010101"))
var_Items:[CellCaption,h,1] := SToD("20010101")
var_Items:[CellCaptionFormat,h,1] := exHTML
var_Items:[FormatCell,h,1] := "longdate(value) replace '2001' with '<b>2001</b>'"
oDCOCX_Exontrol1:EndUpdate()
|
|
768
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Name")
var_Column := IColumn{var_Columns:Add("Values")}
var_Column:SortType := SortNumeric
var_Column:AllowSizing := false
var_Column:Width := 64
var_Column:FormatColumn := "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
var_Column:[Def,exCellCaptionFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:[FormatCell,h,1] := "'<none>'"
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1"),1] := 10
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 2"),1] := 15
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 3"),1] := 25
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
767
|
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Name")
var_Column := IColumn{var_Columns:Add("Values")}
var_Column:SortType := SortNumeric
var_Column:AllowSizing := false
var_Column:Width := 64
var_Column:FormatColumn := "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
var_Column:[Def,exCellCaptionFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:[FormatCell,h,1] := " "
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 1"),1] := 10
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 2"),1] := 15
var_Items:[CellCaption,var_Items:InsertItem(h,nil,"Child 3"),1] := 25
var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()
|
|
766
|
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
local var_Columns as IColumns
local var_ConditionalFormat,var_ConditionalFormat1 as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1","K1")
var_ConditionalFormat:BackColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
var_ConditionalFormat1 := oDCOCX_Exontrol1:ConditionalFormats:Add("1","K2")
var_ConditionalFormat1:BackColor := RGB(255,0,0)
var_ConditionalFormat1:ApplyTo := 0x2 |
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
var_Columns:Add("Column 3")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(nil)
var_Items:AddItem(nil)
var_Items:AddItem(nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
765
|
How can I get the list of items as they are displayed
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:Columns:Add("Names")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Mantel")
var_Items:AddItem("Mechanik")
var_Items:AddItem("Motor")
var_Items:AddItem("Murks")
var_Items:AddItem("Märchen")
var_Items:AddItem("Möhren")
var_Items:AddItem("Mühle")
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:GetItems(1)) ))
|
|
764
|
Is posible to reduce the size of the picture to be shown in the column's caption
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:HeaderHeight := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("DefaultSize")}:HTMLCaption := "Default-Size <img>pic1</img> Picture"
IColumn{oDCOCX_Exontrol1:Columns:Add("CustomSize")}:HTMLCaption := "Custom-Size <img>pic1:16</img> Picture"
oDCOCX_Exontrol1:EndUpdate()
|
|
763
|
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
local var_Column as IColumn
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:Bold := true
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
oDCOCX_Exontrol1:Columns:Add("C1")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("C2")}
var_Column:HeaderBold := true
var_Column:HTMLCaption := "<fgcolor=FF0000>C2"
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(10),1] := 11
var_Items:[CellCaption,var_Items:AddItem(12),1] := 13
oDCOCX_Exontrol1:EndUpdate()
|
|
762
|
The item is not getting selected when clicking the cell's checkbox. What should I do
METHOD OCX_Exontrol1CellStateChanged(Item,ColIndex) CLASS MainDialog
// CellStateChanged event - Fired after cell's state has been changed.
oDCOCX_Exontrol1:Items:[SelectItem,Item] := true
RETURN NIL
local var_Items as IItems
IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}:[Def,exCellHasCheckBox] := true
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
var_Items:AddItem(3)
|
|
761
|
Is it possible to limit the height of the item while resizing
METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
// AddItem event - Occurs after a new Item has been inserted to Items collection.
oDCOCX_Exontrol1:Items:[ItemMinHeight,Item] := 18
oDCOCX_Exontrol1:Items:[ItemMaxHeight,Item] := 72
RETURN NIL
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ItemsAllowSizing := exResizeItem
oDCOCX_Exontrol1:ScrollBySingleLine := false
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:Columns:Add("Names")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Mantel")
var_Items:AddItem("Mechanik")
var_Items:AddItem("Motor")
var_Items:AddItem("Murks")
var_Items:AddItem("Märchen")
var_Items:AddItem("Möhren")
var_Items:AddItem("Mühle")
oDCOCX_Exontrol1:Columns:[Item,0]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()
|
|
760
|
Is it possible to copy the hierarchy of the control using the GetItems method
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Def")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
var_Items:InsertItem(h,nil,"Child 1")
var_Items:InsertItem(h,nil,"Child 2")
oDCOCX_Exontrol1:PutItems(oDCOCX_Exontrol1:GetItems(-1),nil)
|
|
759
|
Does your control supports multiple lines tooltip
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:ToolTipDelay := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("tootip")}:ToolTip := "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
|
|
758
|
It is possible to write the word in red/color or to add a tooltip or a link to the word
local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20001226")
var_Chart:[PaneWidth,false] := 32
var_Items := oDCOCX_Exontrol1:Items
h1 := var_Items:AddItem("Task 1")
var_Items:AddBar(h1,"",SToD("20010101"),SToD("20010105"),"K1","some <fgcolor=FF0000>red</fgcolor> text")
var_Items:[ItemBar,h1,"K1",exBarPercent] := false
var_Items:[ItemBar,h1,"K1",exBarToolTip] := "And here goes the <b>tooltip</b> of the text. "
var_Items:AddItem("")
var_Items:AddItem("")
var_Items:AddItem("")
var_Items:AddItem("")
h2 := var_Items:AddItem("Task 2")
var_Items:AddBar(h2,"Task",SToD("20010105"),SToD("20010107"),"K2",nil)
var_Items:[ItemBar,h2,"K2",exBarToolTip] := "And here goes the <b>tooltip</b> of the bar. "
var_Items:AddLink("L1",h1,"K1",h2,"K2")
var_Items:[Link,"L1",exLinkText] := "L<b>inke</b>d to a bar"
var_Items:[Link,"L1",exLinkToolTip] := "And here goes the <b>tooltip</b> of the link. "
|
|
757
|
It is possible to use seconds/minutes/hours as time scale in your control, but using my regional settings
local var_Chart,var_Chart1 as IChart
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[Label,exMonth] := "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
var_Chart:[Label,exWeek] := "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
var_Chart:[Label,exHour] := "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
var_Chart:[Label,exMinute] := "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
var_Chart:[Label,exSecond] := "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
var_Chart:[LabelToolTip,exMonth] := "<%loc_mmmm%>/<%yyyy%>"
var_Chart:[LabelToolTip,exWeek] := "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
var_Chart:[LabelToolTip,exHour] := "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
var_Chart:[LabelToolTip,exMinute] := "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
var_Chart:[LabelToolTip,exSecond] := "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
var_Chart1 := oDCOCX_Exontrol1:Chart
var_Chart1:[PaneWidth,false] := 0
var_Chart1:FirstVisibleDate := SToD("20010101")
var_Chart1:LevelCount := 4
var_Chart1:[Level,0]:Label := 4096
var_Chart1:[Level,1]:Label := 65536
var_Chart1:[Level,2]:Label := 1048576
var_Level := var_Chart1:[Level,3]
var_Level:Count := 15
var_Level:Label := 16777216
oDCOCX_Exontrol1:EndUpdate()
|
|
756
|
The chart's header is displayed in English. Can I change so it is the same as in my regional settings
local var_Chart,var_Chart1 as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[Label,exMonth] := "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
var_Chart:[Label,exWeek] := "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
var_Chart:[Label,exHour] := "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
var_Chart:[Label,exMinute] := "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
var_Chart:[Label,exSecond] := "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
var_Chart:[LabelToolTip,exMonth] := "<%loc_mmmm%>/<%yyyy%>"
var_Chart:[LabelToolTip,exWeek] := "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
var_Chart:[LabelToolTip,exHour] := "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
var_Chart:[LabelToolTip,exMinute] := "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
var_Chart:[LabelToolTip,exSecond] := "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
var_Chart1 := oDCOCX_Exontrol1:Chart
var_Chart1:[PaneWidth,false] := 0
var_Chart1:FirstVisibleDate := SToD("20010101")
var_Chart1:LevelCount := 2
var_Chart1:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
755
|
It is possible to use seconds/minutes/hours as time scale in your control
local var_Chart as IChart
local var_Level as ILevel
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstVisibleDate := SToD("20010101")
var_Chart:LevelCount := 4
var_Chart:[Level,0]:Label := 4096
var_Chart:[Level,1]:Label := 65536
var_Chart:[Level,2]:Label := 1048576
var_Level := var_Chart:[Level,3]
var_Level:Count := 15
var_Level:Label := 16777216
oDCOCX_Exontrol1:EndUpdate()
|
|
754
|
How can I prevent highlighting the column from the cursor - point
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=")
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := 0x1000000
IColumn{oDCOCX_Exontrol1:Columns:Add("S")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 1")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 2")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("Level 3")}:LevelKey := 1
IColumn{oDCOCX_Exontrol1:Columns:Add("E1")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("E2")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("E3")}:Width := 32
IColumn{oDCOCX_Exontrol1:Columns:Add("E4")}:Width := 32
|
|
753
|
Can I use and display PNG pictures
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\card.png"
oDCOCX_Exontrol1:HeaderHeight := 48
IColumn{oDCOCX_Exontrol1:Columns:Add("ColumnName")}:HTMLCaption := "<b>HTML</b> Column <img>pic1</img> Picture"
|
|
752
|
Is it possible to specify the background color for the item in the chart part only
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
hC := var_Items:InsertItem(h,nil,"Child 1")
oDCOCX_Exontrol1:Chart:[ItemBackColor,hC] := RGB(255,0,0)
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
|
|
751
|
Is it possible to apply different visual appearance, color, sizes for item in the list and chart part
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(2,"c:\exontrol\images\pushed.ebn")
oDCOCX_Exontrol1:VisualAppearance:Add(3,"CP:2 2 2 -2 -2")
oDCOCX_Exontrol1:Columns:Add("Default")
oDCOCX_Exontrol1:SelBackMode := exTransparent
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
hC := var_Items:InsertItem(h,nil,"Child 1")
var_Items:[ItemBackColor,hC] := 0x1ffff00
oDCOCX_Exontrol1:Chart:[ItemBackColor,hC] := 0x300ff00
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
|
|
750
|
How do I change the visual appearance for the entire item, using your EBN technology
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
hC := var_Items:InsertItem(h,nil,"Child 1")
var_Items:[ItemBackColor,hC] := 0x1000000
oDCOCX_Exontrol1:Chart:[ItemBackColor,hC] := 0x1000000
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
|
|
749
|
is it possible to specify the a different background color for the item, list and chart part
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
hC := var_Items:InsertItem(h,nil,"Child 1")
var_Items:[ItemBackColor,hC] := RGB(255,0,0)
oDCOCX_Exontrol1:Chart:[ItemBackColor,hC] := RGB(255,255,0)
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
|
|
748
|
Is it possible to specify the background color for the entire row, including the chart part
local var_Items as IItems
local h,hC as USUAL
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Root")
hC := var_Items:InsertItem(h,nil,"Child 1")
var_Items:[ItemBackColor,hC] := RGB(255,0,0)
oDCOCX_Exontrol1:Chart:[ItemBackColor,hC] := RGB(255,0,0)
var_Items:InsertItem(h,nil,"Child 2")
var_Items:[ExpandItem,h] := true
|
|
747
|
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )
METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
// MouseMove event - Occurs when the user moves the mouse.
oDCOCX_Exontrol1:ShowToolTip(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],"","8","8",nil)
RETURN NIL
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:[PaneWidth,false] := 64
var_Chart:LevelCount := 2
var_Chart:FirstVisibleDate := SToD("20100101")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
var_Items:AddBar(h,"Task",SToD("20100108"),SToD("20100111"),"C","C")
oDCOCX_Exontrol1:EndUpdate()
|
|
746
|
Is it possible to move an item from a parent to another
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("A")
var_Items:AddItem("B")
var_Items:InsertItem(var_Items:AddItem("C"),"","D")
var_Items:SetParent(var_Items:[FindItem,"D",0,nil],var_Items:[FindItem,"A",0,nil])
oDCOCX_Exontrol1:EndUpdate()
|
|
745
|
How can I change the identation for an item
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:Columns:Add("Items")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("A")
var_Items:AddItem("B")
var_Items:InsertItem(var_Items:AddItem("C"),"","D")
var_Items:SetParent(var_Items:[FindItem,"D",0,nil],0)
oDCOCX_Exontrol1:EndUpdate()
|
|
744
|
How can I specify the levels using the user's Regional and Language Options
local var_Chart as IChart
local var_Level,var_Level1 as ILevel
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Font:Name := "Arial Unicode MS"
oDCOCX_Exontrol1:HeaderHeight := 36
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20100530")
var_Chart:[PaneWidth,false] := 0
var_Chart:FirstWeekDay := exMonday
var_Chart:UnitWidth := 36
var_Chart:LevelCount := 2
var_Level := var_Chart:[Level,0]
var_Level:Label := "<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> "
var_Level:ToolTip := var_Level:Label
var_Level:Unit := exWeek
var_Level1 := var_Chart:[Level,1]
var_Level1:Label := "<%loc_ddd%><br><%d%>"
var_Level1:ToolTip := var_Level1:Label
var_Chart:ToolTip := "<%loc_ldate%>"
oDCOCX_Exontrol1:EndUpdate()
|
|
743
|
How can I display a bar only using a gradient color and shadow
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091231")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:StartColor := RGB(255,255,255)
var_Bar:EndColor := var_Bar:Color
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
h := var_Items:AddItem("W/h Gradient")
var_Items:AddBar(h,"Task",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:[ItemBar,h,"",exBarPattern] := 8291
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
742
|
Is it possible to display a bar only using a gradient color using the exBarColor option
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091231")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:StartColor := RGB(255,255,255)
var_Bar:EndColor := var_Bar:StartColor
var_Bar:Height := 17
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
h := var_Items:AddItem("W/h Gradient")
var_Items:AddBar(h,"Task",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:[ItemBar,h,"",exBarPattern] := 227
h := var_Items:AddItem("W/h Color")
var_Items:AddBar(h,"Task",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:[ItemBar,h,"",exBarPattern] := 227
var_Items:[ItemBar,h,"",exBarColor] := 255
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
741
|
Is it possible to display a bar only using a gradient color
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091231")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:StartColor := RGB(255,255,255)
var_Bar:EndColor := var_Bar:StartColor
var_Bar:Height := 17
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
h := var_Items:AddItem("W/h Gradient")
var_Items:AddBar(h,"Task",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:[ItemBar,h,"",exBarPattern] := 227
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
740
|
Is it possible to display a bar only using a gradient color
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091231")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:StartColor := RGB(255,255,255)
var_Bar:EndColor := var_Bar:Color
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
h := var_Items:AddItem("W/h Gradient")
var_Items:AddBar(h,"Task",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:[ItemBar,h,"",exBarPattern] := 99
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
739
|
How can I display a specified bar only with a thicker border
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091231")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
h := var_Items:AddItem("W/h Border")
var_Items:AddBar(h,"Task",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:[ItemBar,h,"",exBarPattern] := 4099
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
738
|
Is it possible to display the shadow for a specified bar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091231")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
h := var_Items:AddItem("W/h Shadow")
var_Items:AddBar(h,"Task",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:[ItemBar,h,"",exBarPattern] := 8195
var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
737
|
Is it possible to display the task bars with a gradient color
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091231")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Chart:Bars:Copy("Task","TaskO")
var_Bar := var_Chart:Bars:[Item,"Task"]
var_Bar:Pattern := exPatternGradientVBox | exPatternBox | exPatternShadow
var_Bar:StartColor := RGB(255,255,255)
var_Bar:EndColor := var_Bar:Color
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Original"),"TaskO",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Pattern Gradient"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Original"),"TaskO",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
736
|
How can I know the type of bars I can displays using predefined patterns
local var_Bar,var_Bar1,var_Bar2,var_Bar3,var_Bar4,var_Bar5,var_Bar6,var_Bar7,var_Bar8,var_Bar9 as IBar
local var_Bars as IBars
local var_Chart as IChart
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:FirstVisibleDate := SToD("20091231")
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 96
var_Bars := var_Chart:Bars
var_Bars:Add("Box"):Pattern := exPatternBox
var_Bars:Add("ThickBox"):Pattern := exPatternThickBox | exPatternBox
var_Bars:Add("DiagBox"):Pattern := exPatternThickBox | exPatternBDiagonal
var_Bars:Copy("Task","Shadow"):Pattern := exPatternFrameShadow | exPatternShadow
var_Bars:Copy("Task","TShadow"):Pattern := exPatternFrameShadow | exPatternThickBox | exPatternDiagCross
var_Bar := var_Bars:Add("HGrad1")
var_Bar:Pattern := exPatternBox
var_Bar:StartColor := RGB(255,255,255)
var_Bar:EndColor := RGB(0,0,255)
var_Bar1 := var_Bars:Add("HGrad2")
var_Bar1:Pattern := exPatternBox | exPatternShadow
var_Bar1:StartColor := RGB(255,255,255)
var_Bar1:EndColor := RGB(0,0,255)
var_Bar1:Color := RGB(0,0,255)
var_Bar2 := var_Bars:Add("HGrad3")
var_Bar2:Pattern := exPatternGradient3Colors | exPatternBox | exPatternShadow
var_Bar2:StartColor := RGB(255,255,255)
var_Bar2:EndColor := var_Bar2:StartColor
var_Bar2:Color := RGB(0,0,255)
var_Bar3 := var_Bars:Add("HGrad4")
var_Bar3:Pattern := exPatternThickBox | exPatternGradient3Colors | exPatternBox
var_Bar3:StartColor := RGB(255,255,255)
var_Bar3:EndColor := var_Bar3:StartColor
var_Bar3:Color := RGB(0,0,255)
var_Bar4 := var_Bars:Add("HGrad5")
var_Bar4:Pattern := exPatternFrameShadow | exPatternGradient3Colors | exPatternBox
var_Bar4:StartColor := RGB(0,255,0)
var_Bar4:EndColor := RGB(255,0,0)
var_Bar4:Color := RGB(0,0,255)
var_Bar5 := var_Bars:Add("VGrad1")
var_Bar5:Pattern := exPatternGradientVBox | exPatternBox
var_Bar5:StartColor := RGB(255,255,255)
var_Bar5:EndColor := RGB(0,0,255)
var_Bar5:Height := 14
var_Bar6 := var_Bars:Add("VGrad2")
var_Bar6:Pattern := exPatternGradientVBox | exPatternBox | exPatternShadow
var_Bar6:StartColor := RGB(255,255,255)
var_Bar6:EndColor := RGB(0,0,255)
var_Bar6:Color := RGB(0,0,255)
var_Bar6:Height := 14
var_Bar7 := var_Bars:Add("VGrad3")
var_Bar7:Pattern := exPatternGradient3Colors | exPatternGradientVBox | exPatternBox | exPatternShadow
var_Bar7:StartColor := RGB(255,255,255)
var_Bar7:EndColor := var_Bar7:StartColor
var_Bar7:Color := RGB(0,0,255)
var_Bar7:Height := 14
var_Bar8 := var_Bars:Add("VGrad4")
var_Bar8:Pattern := exPatternThickBox | exPatternGradient3Colors | exPatternGradientVBox | exPatternBox
var_Bar8:StartColor := RGB(255,255,255)
var_Bar8:EndColor := var_Bar8:StartColor
var_Bar8:Color := RGB(0,0,255)
var_Bar8:Height := -1
var_Bar9 := var_Bars:Add("VGrad5")
var_Bar9:Pattern := exPatternFrameShadow | exPatternGradient3Colors | exPatternGradientVBox | exPatternBox
var_Bar9:StartColor := RGB(0,255,0)
var_Bar9:EndColor := RGB(255,0,0)
var_Bar9:Color := RGB(0,0,255)
var_Bar9:Height := 14
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Box"),"Box",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Thick Box"),"ThickBox",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Thick Box Diag"),"DiagBox",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Shadow"),"Shadow",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Thick Shadow"),"TShadow",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Solid Gradient"),"HGrad1",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Pattern Gradient"),"HGrad2",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Pattern Gradient 3 Colors"),"HGrad3",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Solid Gradient 3 Colors"),"HGrad4",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Gradient Shadow"),"HGrad5",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Solid Gradient"),"VGrad1",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Pattern Gradient"),"VGrad2",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Pattern Gradient 3 Colors"),"VGrad3",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Solid Gradient 3 Colors"),"VGrad4",SToD("20100104"),SToD("20100109"),"",nil)
var_Items:AddBar(var_Items:AddItem("Gradient Shadow"),"VGrad5",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
735
|
Is it possible to display the bars with a thicker border
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Chart:Bars:Copy("Task","TaskB"):Pattern := exPatternThickBox | exPatternShadow
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"TaskB",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"Task",SToD("20010102"),SToD("20010105"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
734
|
Is it possible to display the shadow for EBN bars
local var_Bar as IBar
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
var_Bar := oDCOCX_Exontrol1:Chart:Bars:Copy("Task","EBN")
var_Bar:Color := 0x1000000
var_Bar:Pattern := exPatternFrameShadow
oDCOCX_Exontrol1:Chart:Bars:Copy("Task","EBN2"):Color := 0x1000000
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"EBN2",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"EBN",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 3"),"EBN2",SToD("20010102"),SToD("20010105"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
733
|
Can I display a shadow for my bars
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]:Pattern := exPatternFrameShadow | exPatternShadow
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20010102"),SToD("20010105"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
732
|
How can I use the Color property for gradient bars
local var_Bar,var_Bar1 as IBar
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
oDCOCX_Exontrol1:Chart:[PaneWidth,false] := 48
var_Bar := oDCOCX_Exontrol1:Chart:Bars:Add("V")
var_Bar:Color := RGB(255,0,0)
var_Bar:StartColor := RGB(0,255,0)
var_Bar:EndColor := var_Bar:StartColor
var_Bar:Pattern := exPatternGradient3Colors | exPatternGradientVBox | exPatternBox
var_Bar:Height := -1
var_Bar1 := oDCOCX_Exontrol1:Chart:Bars:Add("H")
var_Bar1:Color := RGB(255,0,0)
var_Bar1:StartColor := RGB(0,255,0)
var_Bar1:EndColor := var_Bar1:StartColor
var_Bar1:Pattern := exPatternGradient3Colors | exPatternBox
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Task 1"),"V",SToD("20010102"),SToD("20010105"),"",nil)
var_Items:AddBar(var_Items:AddItem("Task 2"),"H",SToD("20010102"),SToD("20010105"),"",nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
731
|
Is there any option to show bars with vertical gradient
local var_Bar as IBar
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bar := oDCOCX_Exontrol1:Chart:Bars:[Item,"Task"]
var_Bar:Color := RGB(255,0,0)
var_Bar:StartColor := RGB(0,255,0)
var_Bar:EndColor := RGB(255,255,0)
var_Bar:Pattern := exPatternGradientVBox | exPatternBox
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("Task")
var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010105"),"",nil)
|
|
730
|
How can I define a new milestone bar
local var_Bar as IBar
local var_Bars as IBars
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bars := oDCOCX_Exontrol1:Chart:Bars
var_Bars:AddShapeCorner(12345,1)
var_Bars:AddShapeCorner(12346,2)
var_Bars:Copy("Milestone","M1"):StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
var_Bars:Copy("Milestone","M2"):StartShape := 0x3020 | exShapeIconSquare | exShapeIconRight
var_Bar := var_Bars:Copy("Milestone","MP")
var_Bar:StartShape := exShapeIconStar
var_Bar:StartColor := RGB(255,0,0)
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Default"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Predefined"),"MP",SToD("20010103"),SToD("20010103"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Custom 1"),"M1",SToD("20010104"),SToD("20010104"),nil,nil)
var_Items:AddBar(var_Items:AddItem("Custom 2"),"M2",SToD("20010105"),SToD("20010105"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()
|
|
729
|
How can I define my milestone bar, using my icons or pictures
local var_Bars as IBars
local var_Items as IItems
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20010101")
var_Bars := oDCOCX_Exontrol1:Chart:Bars
var_Bars:AddShapeCorner(12345,1)
var_Bars:[Item,"Milestone"]:StartShape := 0x3020 | exShapeIconVBar | exShapeIconRight
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddBar(var_Items:AddItem("Item 1"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
|
|
728
|
I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
var_Chart:[Label,exWeek] := "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
var_Chart:[LabelToolTip,exWeek] := "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:FirstWeekDay := exMonday
var_Chart:MonthNames := "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre"
var_Chart:WeekDays := "domenica lunedì martedì mercoledì giovedì venerdì sabato"
var_Chart:ToolTip := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
727
|
I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
var_Chart:[Label,exWeek] := "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
var_Chart:[LabelToolTip,exWeek] := "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:FirstWeekDay := exMonday
var_Chart:MonthNames := "januari februari maart april mei juni juli augusts september oktober november december"
var_Chart:WeekDays := "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag"
var_Chart:ToolTip := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
726
|
I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
var_Chart:[Label,exWeek] := "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096"
var_Chart:[LabelToolTip,exWeek] := "<%d%>.<%mmmm%> <%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>"
var_Chart:FirstWeekDay := exMonday
var_Chart:MonthNames := "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
var_Chart:WeekDays := "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag"
var_Chart:ToolTip := "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>"
var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
725
|
I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area
local var_Chart as IChart
oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
var_Chart:LevelCount := 2
var_Chart:[PaneWidth,false] := 0
var_Chart:[Label,exWeek] := "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
var_Chart:[Label,exDay] := "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
var_Chart:[LabelToolTip,exWeek] := "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
var_Chart:[LabelToolTip,exDay] := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:FirstWeekDay := exMonday
var_Chart:MonthNames := "janvier février mars avril mai juin juillet août septembre octobre novembre décembre"
var_Chart:WeekDays := "dimanche lundi mardi mercredi jeudi vendredi samedi"
var_Chart:ToolTip := "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
var_Chart:UnitScale := exDay
oDCOCX_Exontrol1:EndUpdate()
|
|
724
|
How can I filter programatically using more columns
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Car")
var_Columns:Add("Equipment")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem("Mazda"),1] := "Air Bag"
var_Items:[CellCaption,var_Items:AddItem("Toyota"),1] := "Air Bag,Air condition"
var_Items:[CellCaption,var_Items:AddItem("Ford"),1] := "Air condition"
var_Items:[CellCaption,var_Items:AddItem("Nissan"),1] := "Air Bag,ABS,ESP"
var_Items:[CellCaption,var_Items:AddItem("Mazda"),1] := "Air Bag, ABS,ESP"
var_Items:[CellCaption,var_Items:AddItem("Mazda"),1] := "ABS,ESP"
var_Column := oDCOCX_Exontrol1:Columns:[Item,"Car"]
var_Column:FilterType := exFilter
var_Column:Filter := "Mazda"
var_Column1 := oDCOCX_Exontrol1:Columns:[Item,"Equipment"]
var_Column1:FilterType := exPattern
var_Column1:Filter := "*ABS*|*ESP*"
oDCOCX_Exontrol1:ApplyFilter()
oDCOCX_Exontrol1:EndUpdate()
|
|
723
|
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}
var_Column:Width := 24
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("SWITCH - statment")}
var_Column1:ComputedField := "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
var_Column1:ToolTip := var_Column1:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
722
|
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}
var_Column:Width := 24
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("IN - statment")}
var_Column1:ComputedField := "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
var_Column1:ToolTip := var_Column1:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
721
|
How can I use the CASE statement (CASE usage)
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}
var_Column:Width := 24
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("CASE - statment")}
var_Column1:ComputedField := "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
var_Column1:ToolTip := var_Column1:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
720
|
How can I use the CASE statement (CASE usage)
local var_Column,var_Column1 as IColumn
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Value")}
var_Column:Width := 24
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("CASE - statment")}
var_Column1:ComputedField := "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
var_Column1:ToolTip := var_Column1:ComputedField
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem(0)
var_Items:AddItem(1)
var_Items:AddItem(2)
oDCOCX_Exontrol1:EndUpdate()
|
|
719
|
Is is possible to use HTML tags to display in the filter caption
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarCaption := "This is a bit of text being displayed in the filter bar."
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
var_Items:AddItem("Item 1")
var_Items:AddItem("Item 2")
var_Items:AddItem("Item 3")
oDCOCX_Exontrol1:EndUpdate()
|
|
718
|
How can I find the number of items after filtering
local var_Items as IItems
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("")
var_Items := oDCOCX_Exontrol1:Items
h := var_Items:AddItem("")
var_Items:[CellCaption,h,0] := var_Items:VisibleItemCount
oDCOCX_Exontrol1:EndUpdate()
|
|
717
|
How can I change the filter caption
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptWords | exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "london robert"
oDCOCX_Exontrol1:FilterBarCaption := "<r>Found: ... "
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
716
|
While using the filter prompt is it is possible to use wild characters
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptPattern
oDCOCX_Exontrol1:FilterBarPromptPattern := "lon* seat*"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
715
|
How can I list all items that contains any of specified words, not necessary at the beggining
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptStartWords | exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "london davolio"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
714
|
How can I list all items that contains any of specified words, not strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptWords | exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "london nancy"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
713
|
How can I list all items that contains all specified words, not strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptWords | exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "london robert"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
712
|
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptCaseSensitive | exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "Anne"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
711
|
Is it possible to list only items that ends with any of specified strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptEndWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "Fuller"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
710
|
Is it possible to list only items that ends with any of specified strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptEndWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "Fuller"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
709
|
Is it possible to list only items that starts with any of specified strings
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptStartWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "An M"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
708
|
Is it possible to list only items that starts with specified string
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptStartWith
oDCOCX_Exontrol1:FilterBarPromptColumns := "0"
oDCOCX_Exontrol1:FilterBarPromptPattern := "A"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
707
|
How can I specify that the list should include any of the seqeunces in the pattern
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptContainsAny
oDCOCX_Exontrol1:FilterBarPromptPattern := "london seattle"
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
706
|
How can I specify that all sequences in the filter pattern must be included in the list
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "london manager"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
705
|
How do I change at runtime the filter prompt
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptPattern := "london manager"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
704
|
How do I specify to filter only a single column when using the filter prompt
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPromptColumns := "2,3"
oDCOCX_Exontrol1:FilterBarPromptPattern := "london"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
703
|
How do I change the prompt or the caption being displayed in the filter bar
local var_Columns as IColumns
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
oDCOCX_Exontrol1:FilterBarPrompt := "changed"
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
oDCOCX_Exontrol1:EndUpdate()
|
|
702
|
How do I enable the filter prompt feature
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:FilterBarPromptVisible := true
var_Columns := oDCOCX_Exontrol1:Columns
IColumn{var_Columns:Add("Name")}:Width := 96
IColumn{var_Columns:Add("Title")}:Width := 96
var_Columns:Add("City")
var_Items := oDCOCX_Exontrol1:Items
h0 := var_Items:AddItem("Nancy Davolio")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Andrew Fuller")
var_Items:[CellCaption,h0,1] := "Vice President, Sales"
var_Items:[CellCaption,h0,2] := "Tacoma"
var_Items:[SelectItem,h0] := true
h0 := var_Items:AddItem("Janet Leverling")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Kirkland"
h0 := var_Items:AddItem("Margaret Peacock")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "Redmond"
h0 := var_Items:AddItem("Steven Buchanan")
var_Items:[CellCaption,h0,1] := "Sales Manager"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Michael Suyama")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Robert King")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
h0 := var_Items:AddItem("Laura Callahan")
var_Items:[CellCaption,h0,1] := "Inside Sales Coordinator"
var_Items:[CellCaption,h0,2] := "Seattle"
h0 := var_Items:AddItem("Anne Dodsworth")
var_Items:[CellCaption,h0,1] := "Sales Representative"
var_Items:[CellCaption,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()
|
|
701
|
Is it possible to colour a particular column, I mean the cell's foreground color
local var_Columns as IColumns
local var_ConditionalFormat as IConditionalFormat
local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
var_ConditionalFormat := oDCOCX_Exontrol1:ConditionalFormats:Add("1",nil)
var_ConditionalFormat:ForeColor := RGB(255,0,0)
var_ConditionalFormat:ApplyTo := 0x1 |
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
var_Columns:Add("Column 1")
var_Columns:Add("Column 2")
var_Items := oDCOCX_Exontrol1:Items
var_Items:[CellCaption,var_Items:AddItem(0),1] := 1
var_Items:[CellCaption,var_Items:AddItem(2),1] := 3
var_Items:[CellCaption,var_Items:AddItem(4),1] := 5
oDCOCX_Exontrol1:EndUpdate()
|